 GetX ()     ( Graph)
 ----------------------------------
 X-   (CP).

 :
 Function GetX : Integer;

 :
Real, Protected

 :
 GetX       ,
   .

  SetViewPort(0, 0, GetMaxX, GetMaxY, True);
  CP    (0, 0),  GetX   0.

  MoveTo(5, 5);
  CP    (5, 5),  GetX   5.

  SetViewPort(10, 10, 100, 100, True);
  CP    (10, 10),  GetX   0.

  MoveTo(5, 5);
  CP    (15, 15),  GetX   5.

 :
    .

  :
 GetViewSettings
 GetY
 InitGraph
 MoveTo
 SetViewPort

 :
 Getx.PAS


{Getx.PAS}
-----------
{     GetX }

Uses Graph;

Var Gd, Gm : Integer;
      X, Y : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 OutText('Starting here. ');
 X:=GetX;
 Y:=GetY;
 OutTextXY(20, 10, 'Now over here...');
 OutTextXY(X, Y, 'Now back over here.');
 ReadLn;
 CloseGraph;
End.
